home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / MemoNoteStack 4.0 / card_5355.txt < prev    next >
Encoding:
Text File  |  1988-03-06  |  6.9 KB  |  300 lines
  1. -- card: 5355 from stack: in.0
  2. -- bmap block id: 6211
  3. -- flags: 0000
  4. -- background id: 2781
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 4007
  11. -- rect: left=212 top=197 right=250 bottom=423
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Note 1
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: C002
  25. -- rect: left=212 top=179 right=197 bottom=290
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Note
  34. ----- HyperTalk script -----
  35. *NoteButtonScript*4.0
  36. on mouseup
  37.   send NoteButtonMouseUp
  38. end MouseUp
  39.  
  40. ****This note created 2/23/88
  41. MemoNotes‚Ñ¢ Hypernote system
  42. ¬©1988 PeterFraterdeus
  43. CIS 73306,2703
  44. ShareWare-$15. to: Alphabets, Inc.
  45. 804 Dempster St./ Evanston, IL. 60202
  46.  
  47.  
  48.  
  49. -- part 3 (button)
  50. -- low flags: 00
  51. -- high flags: 4002
  52. -- rect: left=406 top=250 right=267 bottom=423
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 1018 / 1018
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Grow
  61. ----- HyperTalk script -----
  62. NoteGrowButton
  63. **
  64. on mousedown
  65.   send NoteGrowMouseDown
  66. end mousedown
  67. ***
  68. on mouseup
  69.   send NoteGrowMouseUp
  70. end mouseUp
  71. ****
  72. on showGrow
  73.   send showGrowButton
  74. end showGrow
  75.  
  76. MemoNotes‚Ñ¢ Hypernote system
  77. ¬©1988 PeterFraterdeus
  78. CIS 73306,2703
  79. ShareWare-$15. to: Alphabets, Inc.
  80. 804 Dempster St./ Evanston, IL. 60202
  81.  
  82.  
  83.  
  84. -- part 7 (field)
  85. -- low flags: 00
  86. -- high flags: 4007
  87. -- rect: left=212 top=106 right=175 bottom=423
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 9
  93. -- style flags: 0
  94. -- line height: 12
  95. -- part name: Note 7
  96. ----- HyperTalk script -----
  97. on Perform
  98.   --end perform -- comment out to perform field
  99.   choose button tool
  100.   put "" into card field "button List"
  101.   repeat with n =1 to the number of card buttons
  102.     put n &"-"& the short name of btn n & "-"&the Loc of btn n &return after card field "button list"
  103.   end repeat
  104.   choose browse tool
  105. end perform
  106.  
  107.  
  108. end Perform
  109. on closefield
  110.   send DoMeCloseField
  111. end closefield
  112. on MouseDown
  113.   send NoteFieldMouseDown
  114. end MouseDown
  115.  
  116.  
  117.  
  118. -- part 8 (button)
  119. -- low flags: 00
  120. -- high flags: C002
  121. -- rect: left=212 top=88 right=106 bottom=313
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Do Me Note
  130. ----- HyperTalk script -----
  131. *DoMeNoteButtonScript*4.0 -- 23Feb1988
  132. on MouseDown
  133.   global gSelection
  134.   put selection into gSelection
  135.   pass mousedown
  136. end MouseDown
  137.  
  138. on MouseUp
  139.   send DoMeMouseUp
  140. end MouseUp
  141.  
  142. ****
  143. Do Me Notes‚Ñ¢ ¬©1988
  144. Interactive Fields from MemoNotes
  145. ****This note created 2/23/88
  146. MemoNotes‚Ñ¢ Hypernote system
  147. ¬©1988 PeterFraterdeus
  148. CIS 73306,2703
  149. ShareWare-$15. to: Alphabets, Inc.
  150. 804 Dempster St./ Evanston, IL. 60202
  151.  
  152.  
  153.  
  154.  
  155. -- part 9 (button)
  156. -- low flags: 00
  157. -- high flags: 4002
  158. -- rect: left=406 top=175 right=192 bottom=423
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 1018 / 1018
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: Grow
  167. ----- HyperTalk script -----
  168. NoteGrowButton
  169. **
  170. on mousedown
  171.   send NoteGrowMouseDown
  172. end mousedown
  173. ***
  174. on mouseup
  175.   send NoteGrowMouseUp
  176. end mouseUp
  177. ****
  178. on showGrow
  179.   send showGrowButton
  180. end showGrow
  181.  
  182. MemoNotes‚Ñ¢ Hypernote system
  183. ¬©1988 PeterFraterdeus
  184. CIS 73306,2703
  185. ShareWare-$15. to: Alphabets, Inc.
  186. 804 Dempster St./ Evanston, IL. 60202
  187.  
  188.  
  189.  
  190. -- part 16 (button)
  191. -- low flags: 00
  192. -- high flags: 8002
  193. -- rect: left=290 top=292 right=310 bottom=420
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: TransferScripts
  202. ----- HyperTalk script -----
  203. --This is a development tool for creating script writing scripts.
  204. --The concept is to create a working model of the object (a note button
  205. --in this case) and this script will create a chunk of
  206. --imbedded script that can be copied to the object creating script.
  207. --Operating on this script, the result (created in the script of
  208. --"tempbutton") would start like this:
  209. --    put"on mouseup"&return after NoteButtonScript
  210. --    put"  global tempscript"&return after NoteButtonScript
  211. --"NoteButtonScript" is a varible local to the object creating script.
  212. --"Fieldid" is any calculated and changing information, keyed to the
  213. --quoted text in TargText
  214. --Doesn't change "quoted" String constants (ie. "a Constant")
  215. --these require manual fix.
  216. on mouseUp
  217.   put "" into tempscript
  218.   put "" into targText
  219.   put "put"&Quote into Frag1
  220.   put quote&"&return after NoteButtonScript"&return into Frag2
  221.   put the script of button "Test Button" into it -- change template here
  222.   repeat with n = 1 to the number of lines in it
  223.  
  224.     repeat while line n of it contains targText
  225.       put quote&"&&Fieldid&&""e into char offset (targText,line n of it)-1 to offset (targText,line n of it)+length(targText)+3 of line n of it
  226.     end repeat
  227.     put Frag1&line n of it &Frag2 after tempScript
  228.   end repeat
  229.   set the script of button tempbutton to tempscript
  230. end mouseUp
  231.  
  232. Used for the MemoNotes‚Ñ¢ System
  233. ¬©1988 Peter Fraterdeus
  234. CIS 73306,2703
  235.  
  236.  
  237.  
  238. -- part 17 (button)
  239. -- low flags: 00
  240. -- high flags: A002
  241. -- rect: left=290 top=274 right=292 bottom=420
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: TempButton
  250.  
  251.  
  252. -- part 18 (button)
  253. -- low flags: 00
  254. -- high flags: 8003
  255. -- rect: left=305 top=253 right=275 bottom=401
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Test Button
  264.  
  265.  
  266. -- part 101 (field)
  267. -- low flags: 00
  268. -- high flags: 4007
  269. -- rect: left=38 top=157 right=272 bottom=208
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 0
  273. -- font id: 3
  274. -- text size: 9
  275. -- style flags: 0
  276. -- line height: 12
  277. -- part name: Button List
  278.  
  279.  
  280. -- part contents for card part 1
  281. ----- text -----
  282. This Page is for experimenting with DoMe Notes! Have Fun!
  283. The DoMe above puts a list of all the buttons on the card, with their locations, into the field at the left.
  284.  
  285. -- part contents for card part 7
  286. ----- text -----
  287. --end perform -- comment out to perform field
  288. choose button tool
  289. put "" into card field "button List"
  290. repeat with n =1 to the number of card buttons
  291.     put n &"-"& the short name of btn n & "-"&the Loc of btn n &return after card field "button list"
  292. end repeat
  293. choose browse tool
  294. end perform
  295.  
  296.  
  297.  
  298. -- part contents for background part 31
  299. ----- text -----
  300. Version 4.1.1